home *** CD-ROM | disk | FTP | other *** search
/ C++ für Kids / C++ for kids.iso / Buch / Raten3a.cpp < prev    next >
C/C++ Source or Header  |  1998-12-27  |  2KB  |  72 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl\vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "Raten3a.h"
  6. //---------------------------------------------------------------------------
  7. #pragma resource "*.dfm"
  8.  
  9. const int Max = 12;  // ein Dutzend ist genug
  10. TForm1 *Form1;
  11. int Eingabe, Zufall, Versuche, Knopf;
  12.  
  13. //---------------------------------------------------------------------------
  14. __fastcall TForm1::TForm1(TComponent* Owner)
  15.     : TForm(Owner)
  16. {
  17. }
  18. //---------------------------------------------------------------------------
  19. void __fastcall TForm1::Button1Click(TObject *Sender)
  20. {
  21.   Edit1->SetFocus ();
  22.   Eingabe = StrToInt (Edit1->Text);
  23.  
  24.   // Versuche mitzΣhlen und bei Max warnen
  25.   Versuche++;
  26.   if (Versuche <= Max)
  27.     Label2->Caption = IntToStr (Versuche) + ". Versuch:";
  28.   else
  29.     Label2->Caption = "Es reicht!";
  30.  
  31.   // Eingabe auswerten ob zu klein oder zu gro▀
  32.   if (Eingabe < Zufall) Label1->Caption = "Deine Zahl ist zu klein!";
  33.   if (Eingabe > Zufall) Label1->Caption = "Deine Zahl ist zu gro▀!";
  34.  
  35.   // Wenn richtig geraten, neues Spiel anbieten
  36.   if (Eingabe == Zufall)
  37.   {
  38.     Label1->Caption = "Richtig geraten!";
  39.     Knopf = Application->MessageBox ("", "Neues Spiel?", 4+32);
  40.  
  41.     // Wenn neues Spiel gewⁿnscht, Startwerte/Zufallszahl neu
  42.     if (Knopf == IDYES)
  43.     {
  44.       Label1->Caption = "Ich denke mir eine neue Zahl!";
  45.       Label2->Caption = "Rate mal!";
  46.       Zufall = random (1000) + 1;
  47.       Versuche = 1;
  48.     }
  49.  
  50.     // Wenn kein neues Spiel, Programmende
  51.     else
  52.       Close ();
  53.   }
  54. }
  55. //---------------------------------------------------------------------------
  56. void __fastcall TForm1::FormCreate(TObject *Sender)
  57. {
  58.   randomize ();
  59.   Zufall = random (1000) + 1;
  60.   Versuche = 1;
  61. }
  62. //---------------------------------------------------------------------------
  63. void __fastcall TForm1::Label1Click(TObject *Sender)
  64. {
  65.   Label1->Caption = "Klick auf den Knopf!";
  66. }
  67. //---------------------------------------------------------------------------
  68. void __fastcall TForm1::Label2Click(TObject *Sender)
  69. {
  70.   Label2->Caption = "Klick mal!" ;
  71. }
  72. //---------------------------------------------------------------------------